Viết chương trình Pascal cho hai thuật toán sau: Thuật toán 1: Bước 1: T:=0; n:=0 Bước 2: Nếu T >20 chuyển về bước 4 Bước 3: n:= n+2; T := T+n; Quay lại bước 2 Bước 4: Thông Bảo T; Kết thúc thuật toán
a. Vt chương trình =nnlt pascal Mô tả thuật toán sau Bước 1. S←1;n←0 Bước 2. Nếu s>=10;chuyển bước 4 Bước 3. N←n+2,s←s+n; quay bước 2 Bước 4 thông báo s và KT thuật toán b. khởi động phần mềm Free pascal soạn thảo lưu dịch chạy trương trình quan sát kết quả
Program HOC24;
var S,n: integer;
begin
s:=1; n:=0;
while s<10 do
begin
n:=n+2;
s:=s+n;
end;
write('S= ' ,s);
readln
end.
Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật toán đó:
a) Thuật toán 1
Bước 1. S \(\leftarrow\) 10, x \(\leftarrow\) 0.5
Bước 2. Nếu S \(\leq\) 5.2, chuyển tới bước 4.
Bước 3. S \(\leftarrow\) S - x và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
b) Thuật toán 2
Bước 1. S \(\leftarrow\) 10, n \(\leftarrow\) 0.
Bước 2. Nếu S ≥ 10, chuyển tới bước 4.
Bước 3. n \(\leftarrow\) n + 3, S \(\leftarrow\) S - n quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
a)
- Máy thực hiện gồm 10 vòng lặp
- Khi kết thúc vòng lặp giá trị của S=5
- Chương trình :
Program hotrotinhoc;
var x,s:real;
begin
s:=10; x:=0.5;
while s>=5.2 do s:=s-x;
write(s:1:0);
readln
end.
b)
- Máy thực hiện gồm vô hạn vòng lặp
- Khi kết thúc vòng lặp giá trị của S không xác định
- Chương trình :
Program hotrotinhoc;
var n,s:byte;
begin
s:=10; n:=0;
while s<=10 do
begin
n:=n+3;
s:=s-n;
end;
write(s);
readln
end.
a)
- Máy thực hiện gồm 10 vòng lặp
- Khi kết thúc vòng lặp giá trị của S=5
- Chương trình :
Program hotrotinhoc;
var x,s:real;
begin
s:=10; x:=0.5;
while s>=5.2 do s:=s-x;
write(s:1:0);
readln
end.
b)
-không thực hiện lặp do điều kiện thoát lặp là s>=10 mà ban đầu s=10
-kết thúc,s=10
chương trình:
Program hotrotinhoc;
var n,s:byte;
begin
s:=10; n:=0;
while s<10 do
begin
n:=n+3;
s:=s-n;
end;
write(s);
readln
end.
Cho biết khi thực hiện thuật toán sau, máy tính sẽ thực hiện bao nhiêu vòng lặp?
Bước 1. S ← 16, n ← 0
Bước 2. Nếu S ≤ 10, chuyển tới bước 4.
Bước 3. n ← n + 3, S ← S – n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
A. 1
B. 2
C. 3
D. 4
Cho biết khi thực hiện thuật toán sau, máy tính sẽ thực hiện bao nhiêu vòng lặp?
Bước 1. S ← 18, n ← 0
Bước 2. Nếu S ≤ 10, chuyển tới bước 4.
Bước 3. n ← n + 3, S ← S – n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
A. 1
B. 2
C. 3
D. 4
Cho biết khi thực hiện thuật toán sau, máy tính sẽ thực hiện bao nhiêu vòng lặp?
Bước 1. S ← 12, n ← 0
Bước 2. Nếu S ≤ 10, chuyển tới bước 4.
Bước 3. n ← n + 3, S ← S – n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
A. 1
B. 2
C. 3
D. 4
Cho biết khi thực hiện thuật toán sau, máy tính sẽ thực hiện bao nhiêu vòng lặp?
Bước 1. S ← 14, n ← 0
Bước 2. Nếu S ≤ 10, chuyển tới bước 4.
Bước 3. n ← n + 3, S ← S – n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
A. 1
B. 2
C. 3
D. 4
Câu 1. Cho thuật toán sau:
Bước 1: T: =0; j: =1;
Bước 2: Nếu T≤ 20 thì chuyển qua B3, ngược lại T > 20 thì chuyển B4;
Bước 3: j: =J+2; T: =T+J; và quay lại B2
Bước 4: In ra kết quả và kết thúc thuật toán.
a) Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu
b) Viết chương trình sử dụng câu lệnh lặp chưa biết trước thể hiện thuật toán trên.
Viết chương trình từ thuật toán sau:
Bước 1: A<-- 0; i<--1
Bước 2: Nếu A>= 7 và chuyển đến Bước 4
Bước 3: i<-- i+1, A<--A+i và quay về Bước 2
Bước 4: Thông báo A và kết thúc thuật toán